From: Leo Liu Date: Sun, 10 Apr 2011 14:21:26 +0000 (+0800) Subject: Fix typo in tabulated-list-print-entry X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~4166 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=cf5fa73e17f3209238a60aaeab9cd2cfba1815cd;p=emacs.git Fix typo in tabulated-list-print-entry --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bf18d8eb066..db3998af62e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-04-10 Leo Liu + + * emacs-lisp/tabulated-list.el (tabulated-list-print-entry): Fix + typo. + 2011-04-09 Chong Yidong * image-mode.el (image-toggle-display-image): Signal an error if diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index 03ee59dd89c..6409c2206bc 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el @@ -271,7 +271,7 @@ of column descriptors." ;; Truncate labels if necessary. (and (> width 6) (> (length label) width) - (setq label (concat (substring desc 0 (- width 3)) + (setq label (concat (substring label 0 (- width 3)) "..."))) (if (stringp desc) (insert (propertize label 'help-echo help-echo))